home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / ada / gnat-3.05- / gnat-3 / gnat-3.05-i486-linux-elf-bin / examples / ex6_if.adb < prev    next >
Encoding:
Text File  |  1996-06-11  |  430 b   |  18 lines
  1. with Gnat.IO; use Gnat.IO;
  2. package body Ex6_If is
  3.    package body Ada_Extension is
  4.  
  5.       procedure Overridden (This : in C) is
  6.       begin
  7.          Put ("in Ex6_If.Ada_Extension.Overridden, a_value = ");
  8.          Put (This.A_Value);
  9.          Put (", b_value = ");
  10.          Put (This.B_Value);
  11.          Put (", c_value = ");
  12.          Put (This.C_Value);
  13.          New_Line;
  14.       end Overridden;
  15.  
  16.    end Ada_Extension;
  17. end Ex6_If;
  18.